home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / JANE152 / SCL / HILO.SCL < prev    next >
Encoding:
Text File  |  1998-10-29  |  785 b   |  28 lines
  1. hilo()
  2. begin
  3.   set zahl to rand(100) + 1;
  4.                                 # Zufallszahl zwischen 1 und 100
  5.   lprint('Versuchen Sie, die Zahl zu erraten!');
  6.   set versuche to 0;
  7.   while ( versuche < 10 )       # eine ganze Menge Versuche
  8.   begin
  9.     lprint('Ihr Versuch:');
  10.     set versuch to inputline(); # Benutzereingabe abfragen
  11.     if ( versuch == zahl )      # und auswerten
  12.     begin
  13.       lprint('Super!!!');       # Erfolgsmeldung ausgeben
  14.       return 0;                 # Makro beenden
  15.     end
  16.     else
  17.     begin
  18.       if ( versuch < zahl )
  19.         lprint('Zu niedrig');   # Hinweise geben
  20.       else
  21.         lprint('Zu hoch');
  22.       end
  23.       set versuche to versuche + 1; # Versuche mitzählen
  24.   end
  25.   lprint('Das waren zu viele Versuche!');
  26. end
  27.  
  28.